TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 

.MAIN. - DSC/3, DSC/4 CP/M FIoppy bootstrap I oad<5r 

TESTBOi:iT„ASM 



PAG 



000:1. 
0000 
0020 



ooyy 





- pabs 






. phfiX 




v<c! r s i i: 


:,ri ~™ 


1 


revis: 


i. ori=== 





patch 


== 


.-• 


w .. 








" DSC/3i DSC/4 CP/M FIoppy bootstra.p I oad'Sr 

? Update hi&torY! 

•1 1.40 Initial rol-&as-€ 

" 1,424 Chansed sp<5cil-Y to O378F7O2 

; 1,. 426 Added boot i-r-om drive 1 

; I4427 Added serial number- 

? 1 „ 430 Change boot disk code 

; 1.431 Add floppY netwoi-k option 

? 1.434 Combine with CP/M 2„2 

5 

; TESTBOOT diaismost ic 9/1/Sl D. S;tein 

t-estart = 38 h ? addr- oH- rst 7 (prom restart) 

? Conditional a.55emblY options; 



0001 



CPMver =\ 

Enter 1 for CP/M 1 ,, 4 
2 for CP/M 2.2 



0000 



000 1 



.ife CPMver 1 -, II 

FLOPboot =\ 

Filter for stand-a'lone SYstem 

1 for f I OPPY network master ' 
NETboot == 1-FLOPboot 

:i 

.. ife CPMver-2v L 
FLOPboot== 
NETboot == 1 

:i 

? Addresses of BIOS'. BDOS-, and CCP 



O'^I-OO 
CiDOO 
0800 



OAOO 
OCOO 



CPMver--l7C 

400 h 5 length of BIOS kernal 

ODOOh ; length of BOOS 

800 h ; length of CCP 



„ 1 f e 
1 en BIOS = 
lenBDOS == 
lenCCP == 

3 
,. ife 
lenBIOS = ■ 
lenBDOS == 
lenCCP == 

2. 
lenBIOS = 1 enBI0S-i-600h ? floppY code a.lwaYS assembled 
„ife FLOPboot, ClenBIOS = 1 enBI0S-i-200h:i 5 hard disk 
.ife NETboot, i: lenBIOS = lenBI0S+400hll ■" netuiork 
.ife NETboot, 1: lenBIOS = lenBIOS+SOOhJ ? master 



CPMver-2, L 

800 h ; length of BIOS kernal 

OEOOh ; length of BDOS 

800 h ? length of CCP 



TDL ZeO CP/M DJSK ASSEMBLER VERS KIM 2 .. 2 1 
„MAIN.. - DSC/ 3, DSC/ 4 CP/M FIoppy bootstrap 
TESTBOOT.ASM 



1 oader 



PAGE 



1 500 
F400 
E706 
DFOO 
9000 
F41B 
F463 



03F3 
03F6 
03F9 



lenCPM 


== 


•|€;nCCP+tenBDOS 




BIOS 


== 


64*1024- ler.B 10 


5 ; address o-i- 810 


BOOS 


== 


BI0S-1enBD0S+6 


; address ot BOO 


i;::pM 


== 


BIGS-lenCPM 


; address of CCP 


BOOT 


== 


09000h ? base 


o-l" the BOOTstrap 


3ELDSK 


=:= 


BIOS+:lBI-i 




CPMMAP 


:=£=: 


B:f0S+63h 




? 

? PROM 


Monitor 


entry points!.' 




command 


== 


3F3h ; send 


command to floppv 


resul t 


== 


3F6h ? receive result from f 1 


ioerr- 


= =: 


3F9h ; I/O 


error routine 



oacier 



O PP'i' 



P r t d e -I- i n i t i o n s '< 



0038 
0013 
0003 
0003 
0000 
t;»002 



DMA 


38 h 


FLOPF' 


181". 


SETMAP === 


03h 


STOPFLOP== 


03h 


OMMAP 


00 h 


OFFPROM == 


02 h 



IJMA 


c h i p 








Flo 


PPY DMA 


char 


n e 1 




Set 


memorv 


map 


r e B i 


5te 


Sto 


p floppy 


■ cor 


trot 


1 e 1- 


Act 


ivate Dfc 


:C/4 


memory 


Dea 


rt ivate 


DSC/ 


3 PRi 


:iM 



map 



TDL Z80 CP/M DISK ASSEMBLER VEFilSlOlM 2.21 PAGE :!:; 

.MAIN., - DSC/3, DSC/4 CP/M FIoppy bootstrap 1 oader 

TESTBOOT.ASM 



; Bootstrap loader 

? 

; This pro5!ii-am is 'loaded and executed bv the •■'BF'' 

; c iTi rn a n d o i- t h e P F< M M o n i t o r , 1 1 i. s s t o t- e d o n t r a c k 

; sectors 1-2 ot a standard CP/N diskette.. It wi 11 do 

; the fol 1 owing: 

•t 

; <1) Set UP the DSC/4 iTiernorv map^. terriporarl I y keepins 
; pages and 9 in local inemor-Y, 

; <2) Read the BIOS into pase F,. 

3 (3) Move remainder of bootstrap to page 4. 

; (4) Map pages and 9 to extern^iFI inefnorY on the DSC/4 

; and disable the PROM on the DSC/3. 

; <5) Store active drive number tor CP/M 

; (6) Jump to the cold boot entrY point ol- the BIOS, 

? ■ 

? Note the step 1 is required tor the DSC/ 4 onlr; 

; it has no deleterious effect on the DSC/ 3., 
9000 „ 'I oc BOCiT 

; (0) Tell user he-"'s starting the bootstrap 
9000 21 90E-:F Ixi H-iBOOTmss 

9003 DF rst 3 ? print los-on message 

H 

7 ■ ■ 

; (1) Set UP a memorY map^ temporari'lY keeping pages 

; and 9 in local mernorY- 

•} 

° get serial number 
Hsmemmap 3 point to base ot memorr map 
B,0<8-i-SETMAP ■> initial ij:e reg F first 



9004 


DD2A OS 


iFE 






t ixd 


3FEh 


9008 


21 90A'? 


1 






Ixi 


Hsmemrr 


900B 


01 OOOS 








Ixi 


B,0<8-i- 


900E 


EDA3 




y-^ 


omap! 


u t i «^ 


^; 


9010 


3E11 








rriv i 


A, 11 h' 


90 1 2 


30 




1 




add 


B 


9013 


47 




V 




mov 


B,A 


9014 


20F8 




V,., 




J r n z 


domap 


9016 


DBOO 








in 


OMMAP 



9018 


3A 


9391 


1 da 


90 1 B 


32, 


90BA 


sta 


901E 


32 


90C4 


sta 


9021 


08 




exaf 
; Seek track 1 


9022 






re seeks 


9022 


21 


90B9 


Ixi 


9025 


CD 


03F3 


call 


9028 


21 


90BD 


sense; Ixi 


902B . 


i::d 


03F3 


^^all 


902E 


CD 


03F6 


cal 1 


9031 


3A 


9380 


i da 


9034 


CBS 


^F 


b i t 


9036 


20!:: 


::a 


•J r n z 



", 'load next mm reg no '.into B 

; activate DSC/4 memorY map 

; (2) Read the BIOS into memorY., 

? 

; Setup drive number 

9391 h ; drive no^ put here bY PROM 

seekFLOP+l 

readFLOP+;|. 

i save boot drive no., fc^r later 



H,seekFLOP 

command 

Hi IsenseFLOP 

command 

resu'l t 

resbuf 

SiA ; retrY jf not readY 

re seek 



.] 



rOL Z80 CP/M DISK ASSEMBLER VERSKJiM 2., 2:1. 
, MAIM., -- DSC/3, DSC/ 4 CP/M FIoppy boot strap I oad^^i- 
rESTBOOT., ASM 



FfiiGE. 4 



9038 


CB6F 


903A 


28EC 


903C 


E6D0 


9C)3E__ 


C4 03F9 


9041 




9043. 


21 90 BF 


9044 


CD 03F3 


9047 


21 90CD 


90 4 A 


01 1438 


904D 


EDB3 


904F 


3E90 


9051. 


ED47 


9053 


ED5E 


9055 


FB 


9056 


21 90C3 


9059 


CD 03F3 


905C 


CD 03F6 


905F 


3A 90EE 


9062 


B7 


9063 


20Di:: 



bit 


5, A 


j r z 


s.eriS'5 


a n 3. 


ODOh 


c n 7. 


loerr 



wait Linti'l s €■*(••: f i nish-ad 



; Read track It beEiinnins at s^ector 10 
„ „ RDsec: 

H-. BPecFLOP ; specify DMA riiod< 

command 

H , LIMA c o rn 5 'I o a d DMA c h i p 

B,DMA^5;<8+DMA 



Ixi 

cal I 

Ixi 

Ixi 

1.J t :i. r' 

invi 

stai 

i m'2 
[eil 

Ixi 
fcal I 
Lj:ari 



A, (DMAvect>8 ?« OFFh ) 

'■i set UP interrupts 



HireadFLOP ? set up f'loppY command 

commands 

result J 



? ARE WE :i.N INFINriE TEST MODE? CHECt::: IF LCiOPBYT:<::>0 



Ida 
ora 
•j r n z 



1 oopbvt 

A 

. ,RDsec 



; I o o p i n d e I- .. if 1 o o p b y t < '. > 



9065 
9065 
9066 
9069 
90 6 A 
906 B 
906 D 
9070 
9072 
9074 
9077 

9079 
90 7 C 
907F 
9082 
9084 



E7 

2 1 90F5 

DF 

i::;i- 

FE4D 
CA 0038 
FE54 
2005 
32 90EE 
18C8 

21 9087 
1 1 4000 
01 0022 
EDBO 
C3 4000 , 



O^r oA HQ^^ 



9087 
908A 
908C 



1 0003 

3EF0 

ED79 



; •!!•*«•»•«•■«■* 1 da 
;-5:-*K-i<--ic-H-*ani 
;*****«•-;!• ens 
t **" — «- 
; TESTBIOS mods 
1 User enterss 



resbuf 

OCOh 

ioerr 



; t o F* 2 b i t s . •^vh o u I tl,* ,]:< e z e r^ o e ?^ 
P 1 e a s e t a k e n of e i : 



T tor read ins sectors asa, in (TI':.:ST) 
M for exit.ins to PROM mon (MiIHM) 
? anythins else continues bootsta.p 



,. . 3<a' 


t corns 




rst 




Ixi 




rst 




rst 




cpi 




•J z . 




c p i 




J r n : 




sta 




..impr 



4 ? spa.ce down a 'line, 

i-U INFOmss ; ask user for r?M or <CR> 
3 ; F'rint message 

1 , ? get chr from user 

-M-' • ? is it a M? 
restart 5 Yes. Exit to prom 
•■' T ■'■ ? i 5 i t a. T ? 
.,cont ; WO.. Finish bootstrap 
i oopbYt ? Yes. Make I oopbVt non--2ero 
.., RDsec ; and start test ins 
? (3) Move remainder of bootstra.p to external memory 

, ,conts Ixi H, movi't. ? source 

'Ixi D7 4000h ? destination 

1 xi B? 1 enmov 

1 dir ' ■ 

..imp 4000h ? Jump to rest of bootstrap 



4) Map pases and 9 to external memory on the DSC/4 
and disable the PROM on the DSC/3 
vit! Ixi- B,0<8+SETMAP 
mvi A,OFOh 
outp A . ; pasie 




TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 

.MAIN. ~ DSC/3? DSC/4 CP/M F'Ioppy bootstrap load-sr 

TESTBOOT„ASM 



PAi:i£ !:5 



90SE 


0690 


9090 


3EF9 


9092 


ED79 


9094 


DB02 


9096 


OEOO 


9098 


CD F41B 


909B 


CD F463 


909E 


E6C0 


90A0 


4F 


90 A 1. 


OS 


90A2 


Bl 



90A3 



OOOA 



77 



90A4 


2B 


90A5 


77 


90 A6 


C3 


0022 




90A9 




90 A9 


FF 


90AA 


00 


90AB 


Fl 


90 AC 


F2 


90AD 


F3 


90AE 


F4 


90AF 


F5 


90B0 


F6 


90B1 


P7 


90B2 


F8 


90B3. 


00 


90B4 


FA 


90 B5 


FB 


90B6 


FC 


90B7 


FD 


90B8 


FE 


0000 




0001 





F400 



mvi Bi90h 
mvi AT0F9h . 
outp A 5 pa<3* 9 
in OFFPROM ; turn oH- DSC/ 3 PROM 
1 

" (5) Store active drive number l-or CP/M 
iTi V i C J 

SELDSK ? select drive 

CPMver-1, C 

CPMMAP ; get pointer to map brte 

OCOh 5 mask out device tYpe 
C,A 

5 restore unit number 
C ; mask in device tYpe 
CPMver-l j II 
M 7 A ; o v e r write m a p b y t e 

CPMver--2,i; 

D ? overwrite map bYte 



cal 1 


. ife 


can 


ani 


mov 


exa.f 


o r a 


., i f e 


mov 
"1 


.ife 


5 tax 
'1 


dcx 


mov 



H 
M,A 



• overwrite boot disk 



; (6) Jump to the co'ld boot entrY point of the BIOS., 
Jmp BIOS 



i enmov == 


„ -movi 


t 


■J 


number 


Of b 


Y t e s 


to be riio 


? Initial memor' 


V map 


f 


Ol 


- 


the DS 


;:C/4 






memmaps 




















. bYte 


OFFh 








pase 


F 








, bYte 









t 


page 





(in 


1 ocal 


memorY) 


,. bYte 


OFlh 






■> 


page 


I 








.bYte 


0F2h 






N 

■3 


pase 


2' 








„ bYte 


0F3h 








pase 


3 








,. bYte 


0F4h 






n 
•> 


page 


4 








,. bYte 


0F5h 






7 


pase 


5 








» bYte 


0F6h 






5 


page 


6 








„ bYte 


0F7h 






7 


page 


7 








-bYte 


OFSh 






M 

7 


page 


8 








..bYte 









(1 
1 


page 


9 


(in 


1 oca'l 


1 memorY) 


„ bYte 


OF Ah 






7 


page 


A 








„ bYte 


OFBh 






■J 


page 


B 








, bYte 


OFCh 






7 


page 


C 








., bYte 


OFDh 






7 


page 


D 








„ bYte 


OFEh 






n 
7 


page 


E 









7 F'loppY commands 
drive == 
track == 1 

»ife 
sector ===== 
' ■ , . 11 

., ife CPMver-27 L 
sector === 1 :i. ? 13 1 03 sector number 



; B I 111 S d r i v e n u m b e r 

7 B 1 S t r a, c k n u m b e r 

CPMver--]. 7 t: 

10 7 BIOS sector number 



TDl. ZSO CP/M DISK ASSEMBLER VERSION 2.21 

.MAIN, - DSC/3, DSC/4 CP/M FIcppy bootstrap loader 

TESTBOOT., ASM 



■•AGE 6 



OOFF 




90B9 




90B9 


or- 


90 B A 


00 


90BB 


01 


90 EC 


FF 


90BD 




90BD 


08 


90BE 


FF 


90 BF 




90BF 


03 


90C0 


8F 



90 1:.;: 1 



02 



90C2 


FF 


90C3 




90 C3 


A/:, 


90C4 


00 


90C5 


01 


90C6 


00 


90C7 


OA 


90C8 


01 


90C9 


lA 


90CA 


OE' 


90CB 


00 


9oci:; 


FF 


9380 




90C:D 




90CD 


(;::3 


90CE 


C7 


90CF 


CB 


90 DO 


7D 


90D1 


F400 


90D3 


OBFF 


90D5 


14 


90D6 


28 


90D7 


95 


90 DS 


18 


90D9 


12 


90DA 


E:2 


90DB 


9A 


90DC 


CF 


90DD 


01 


90DE 


CF 


90DF 


AB 


90 EO 


87 


0014 




90E2 




90E2 


90E4 



end com === 

seekFLOP: 

. byte 
, bvte 
. bvte 
. b'v te 

iBenseFLOP: 

, bvt'S 
„ bvto 

5 pec FLOPS 

„ bvte 
„ bvte 

. byte 

» byte 

readFLOP: 

t, byte 
„ byte 
. byte 
, byte 
<, byte 
.byte 
.byte 
J byte 
.byte 
„ byte 

resbuf ' == 



DMAcorn: 



DMA* 



.byte 
, byte 
, byte 
. byte 
, word 
, word, 
.byte 
, byte 
« byte 
„ byte 
.byte 
,. byte 
. byte 
„byte 
. byte 
. byte 
. byte 
,. byte 



lo 



; e n d - o f - c omnia. fi d c h ?i, r- a c t e r- 
; seek comriiB.nd 

; sense interrupt status 



; s pe c i fy c omman •;:! 

? seek rate = 8ms 

; 3 5 iTi s d e I a y a l- 1 e r h e a d 1 o a d 

; lOrns delay atter seek 

? DMA mode 



? read double density command 

; drive select 

; track address 

? head address 



OFFh 

drive 
track 
e n d c o m 

CSV 

e n d c o m 

fsA 
SFh 

02h 

e n d c m 

[46 hr^ 
drive 
track 

sector ? first sector number 



1 

26 

OEh 

00 

end com 

9380h 



; do lib! e dens 1 ty 

; I a 5 1 s e c t o r n u m b e r 

; sap len^jth 

; sect o r 5 i z e < n o t u s e d ) 

; result buffer is same 
; as used in the PRiIil^'l 



DMAvects .. word 

;? DMA interrupt routine 



0C3h2p^ , . . 

0C7h^P ^^T- ^C^Jl 

OCBh LP ' M-«^ 

07Dh /A P<n>A te-j. oA'. dj^ l^-^b 

BIOS V load start address 

lenBIOS-1 

14h '^^ 

28h I 6 

95h ^6 i- 

FL..i::iPP '^'^ 

12h 

DMAvect&OFFh ? i n t e r i'li, ! p t v/ e c ±ili:i .^ 

'-'Ah A-C- "^"^ ' fo^itfi/ij J*^v»^6*i«^ iii^x '■i/iMmrtyiiA)ii^^ 

OCFh L9 ; ^^ ^ 

OABh ^5 ^-^ * . ^llfYf '^^ '''t'^ 

87h V^' t^ Q m^ '^'1 

.-DMAcom 

( „+l )'!!<OFFFEh ; force at even address 
DM Ad one 5 DMA interrupt vector 



roL ;:8o cp/M disk assembler vers ddm 2.21 

, M A ]: N . - D S C: / 3 , D S C / 4 C P / M F 1 c p p v b o o t s t f a p I o a. d « r 

:estboot.,asm ■. ' 



PAGE 7 



90E4 




90E4 


F6 


90E5 


DB03 


90E7 


3EC3 


90E9 


Vt O •"• Ci 
U *_.» •_.« •-,• 


90EB 


Fl 


90EC 


ED4D 


90eE 


00 


90EF 


5442 


90F:l. 


31302000 


90F5 


542C4D2C 



DMAdonei 








push 


PSW 




in 


STOPFL 




mv i ■ 


A,0C3h 




o u t 


DMA 




POP 


PSW 




reti 





STOPFLOP ; stop the 1'-l0PPY 

; reset the DMA chip 



; n n •- ~/. e r o i- o r- i n i- i n i t e 1 o o p 



" TESTBOOT messages 
1 oopbYt: , bvte 00 
BOOTmssj! „ as cii -■TB-' 

„ b Y t e V e r s i o n + ■'' •■' ■, r- e v i s i o n -i • •■' •■' -, pat c h ■> 
542C4D2C3C43 INFOmss : „ a sc i 2 -'T, M, <CR> ; -■ 
.. e ri d 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 

.MAIM, - DSC/3, DSC/4 CP/M F'Iof^pv bootstrap load^^ir- 

+-I-+-I--I- SYMBOL. TABLE -ih--hh- ' 



PAGi 



BDOS 

COMMAN 

DMA 

DMA'.|i 

FLOPBO 

I SENSE 

I..EWCPM 

MOV IT 

PATCH 

RESTAR 

SEEKFL 

SPECFL 



E706 
03F3 
0038 
(!)0 1 4 
0000 
90 BD 
1 500 
9087 
0020 
0038 
90B9 
90BF 



BIOS ■ 

CPM 

DMACOM 

DOMAP 

FLOPP 

LENBDO 

LEIMMOV 

NETBOO 

READFL 

RESULT 

SELDSK 

STOPFL 



F400 
DFOO 
90CD 
900t£ 
00 1 8 
ODOO 
0022 
OOC) 1 
90C3 
03F6 
F41.B 
0003 



E<OOT 

CPMMAP 

DMADON 

DRIVE 

INFOMS 

LEMBIO 

LOOPBY 

OFFPRO 

RESBUF 

REV I SI 

SENSE 

fRACK 



9000 
F463 
90E4 
(^lOOO 
90F5 
Oil":t;)0 
90EE 
0002 
9380 
0000 
9028 
000 1 



BOOTHS 

Cf"-MVER 

DMAVEC 

ENDCOM 

lOERR 

LENCCP 

MEMMAP 

OMMAF' 

RESEEK 

SECTOR 

SETMAP 

VERS 10 



90EI"- 
0001 
9(:)E2 
OOI-F 
03F9 
OSC'O 
90A9 

ot.'».;)0 

9022 
000 A 
0003 
000 i 



BLNK. 0000:03 X 



DATA. 0000* 



PROG . 0000 ■'■ 



